home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
misc
/
allma.zip
/
WHT-FRAM.SMM
< prev
next >
Wrap
INI File
|
1994-12-01
|
53KB
|
1,763 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
HP LaserJet IIISi PostScript
[port]
LPT1:
[lang]
1
[fldnames]
Field1
Field2
Field3
Field4
Field5
Field6
Field7
Field8
[desc]
Calls up Frame icons
786354768
54
757997507
505
5
0
0
0
0
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[tag]
Defines
2
[fnt]
Times New Roman
200
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Function
3
[fnt]
Times New Roman
240
0
49153
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
68
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
If Endif
4
[fnt]
Times New Roman
240
16711680
49153
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
68
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
For Next
5
[fnt]
Times New Roman
240
33024
49153
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
68
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
While Wend
6
[fnt]
Times New Roman
240
16711809
49153
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
68
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Label
7
[fnt]
Times New Roman
240
255
49153
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Body Text
8
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Table Text
9
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Table Text
0
0
[frm]
5
536871072
2498
1538
5378
4058
0
1
1
0 0 0 0 0 0 0
0
16777215
5
[frmname]
Frame5
[frmlay]
4058
2880
1
0
0
1
1538
0
0
2
0
0
0
0
1
2498
5378
0
[isd]
.X5
.sdw
.X5
18
1
0
0
2876
64239
100
0
384
258
0
0
1
16
11943
24
11943
32
11943
40
11943
48
11943
56
11943
8
11943
11536
0
1148
1546
4024
4055
0
0
0
0
0
0
65535
255
0
0
0
0
20
0
0
19968
30565
25923
29806
29301
21369
26723
25196
107
0
0
0
0
0
0
0
4608
320
0
0
4
0
0
0
1
360
180
360
720
1
0
0
10590
8382
12382
0
8447
1882
8447
115
8327
192
8327
418
8343
487
8343
288
8327
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
4
0
8
11935
24
11935
32
11935
40
11935
16
11935
48
11935
0
0
.sdw
0
0
0
[frm]
1
512
3889
2311
4975
2907
0
1
1
1 0 0 0 0 0 0
0
16777215
3
[frmlay]
2907
1086
1
0
0
1
2311
0
0
2
0
0
0
0
1
3889
4975
0
[txt]
>
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
0
1
0
1
0
2
1
1440
10800
12
1
720
1
1440
1
2160
1
2880
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
[hrght]
[lyfrm]
1
11200
0
0
12240
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
12240
1
1440
72
1
792
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
ashley bass
>
[frght]
[lyfrm]
1
13248
0
14400
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
792
1
14472
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[pg]
5
45 0 67 0 0 1 0 65535 38 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
92 0 41 256 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
113 36 2 352 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
132 0 48 256 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
151 0 29 1281 1 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
@Defines@<:#284,9360><:f240,2Times New Roman,0,0,0><+,>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)<-,>
@Defines@<:#284,9360><+,><:f240,2Times New Roman,0,0,0>Define Get<-,><+,>Size() DllCall("user,GetWindowRect,HHN",%1,%2)<-,>
@Function@<:#284,9360><-!><:f240,2Times New Roman,0,0,0>function begin(hdlg)
<:#284,9360><:f240,2Times New Roman,0,0,0>thisfile = getrunningmacrofile$()
<:#284,9360><:f240,2Times New Roman,0,0,0>metrics = getprofilestring$("wht-fram", "Metrics", "{windir}amipro2.ini")
@If Endif@<:#284,9360><:f240,2Times New Roman,0,0,0> if metrics != ""
<:#284,9360><:f240,2Times New Roman,0,0,0> setdlgcallback(0, "{thisfile}!init")
@If Endif@<:#284,9360><:f240,2Times New Roman,0,0,0> endif
<:#284,9360><:f240,2Times New Roman,0,0,0>setdlgcallback(20, "{thisfile}!curloc")
@If Endif@<+C><:#284,9360><:f240,2Times New Roman,0,0,0>DlgKeyInterrupt(<[>F1], "HelpFun") ' This if F1
<+C><:#284,9360><:f240,2Times New Roman,0,0,0>B<:f><:f240,2Times New Roman,0,0,0>ox = DialogBox(".", "Frames")
<:#284,9360><:f240,2Times New Roman,0,0,0>IF Box = -1
<:#284,9360><:f240,2Times New Roman,0,0,0>Message("Could not open dialog box; Exiting macro.")
<:#284,9360><:f240,2Times New Roman,0,0,0>EXIT FUNCTION
<:#284,9360><:f240,2Times New Roman,0,0,0>ELSEIF Box = 0
<:#284,9360><:f240,2Times New Roman,0,0,0>EXIT FUNCTION
<:#284,9360><:f240,2Times New Roman,0,0,0>ELSEIF Box = 3
<:#284,9360><:f240,2Times New Roman,0,0,0>ManualFrame()<:f>
<:#284,9360><:f240,2Times New Roman,0,0,0>ELSEIF Box =4<:f>
@Outline2@<:#284,9360>recheck3:
@Outline2@<:#284,9360>If IsFrameSelected()=0
@Outline2@<:#284,9360> usercontrol("Please select a frame, then click resume.")
@Outline2@<:#284,9360> goto recheck3
@Outline2@<:#284,9360> endif
<:#284,9360>If IsFrameSelected()<<<;>0
<:#284,9360><:f240,2Times New Roman,0,0,0> BringFrameToFront()
<:#284,9360><:f240,2Times New Roman,0,0,0> Endif
<:#284,9360><:f240,2Times New Roman,0,0,0>ELSEIF Box =5<:f>
@Outline2@<:#284,9360>recheck4:
@Outline2@<:#284,9360>If IsFrameSelected()=0
@Outline2@<:#284,9360> usercontrol("Please select a frame, then click resume.")
@Outline2@<:#284,9360> goto recheck4
@Outline2@<:#284,9360> endif
<:#284,9360>If IsFrameSelected()<<<;>0
<:#284,9360><:f240,2Times New Roman,0,0,0> SendFrameToBack()
<:#284,9360><:f240,2Times New Roman,0,0,0> Endif<:f>
<:#284,9360><:f240,2Times New Roman,0,0,0>ELSEIF Box = 6<:f>
<:#284,9360><:f240,2Times New Roman,0,0,0>'Usercontrol("Have you selected any
<:f><:f240,2Times New Roman,0,0,0>frames (shift-click), or a group<:f><:f240,2Times New Roman,0,0,0>?<:f><:f240,2Times New Roman,0,0,0>")
<:#284,9360><:f240,2Times New Roman,0,0,0>GroupFrames()
<:#284,9360><:f240,2Times New Roman,0,0,0>ELSEIF Box = 7<:f>
<:#284,9360><:f240,2Times New Roman,0,0,0>call c:\amipro\macros\cntrfram.smm()<:f>
<:#284,9360><:f240,2Times New Roman,0,0,0>ELSEIF Box = 8<:f>
<:#284,9360><:f240,2Times New Roman,0,0,0>If IsFrameSelected()=0
<:#284,9360><:f240,2Times New Roman,0,0,0> call newframe<:f><:f240,2Times New Roman,0,0,0>()
<:#284,9360><:f240,2Times New Roman,0,0,0> end<:f><:f240,2Times New Roman,0,0,0>if
<:f240,2Times New Roman,0,0,0>If IsFrameSelected()<<<;><:f><:f240,2Times New Roman,0,0,0>0
<:f240,2Times New Roman,0,0,0> DrawingMode()
<:f240,2Times New Roman,0,0,0> Endif
<:f240,2Times New Roman,0,0,0>Elseif Box=12<:f>
@Outline2@recheck2:
@Outline2@If IsFrameSelected()=0
@Outline2@ usercontrol("Please select a frame with a graphic, then click resume.")
@Outline2@ goto recheck2
@Outline2@ endif
If IsFrameSelected()<<<;>0
<:f240,2Times New Roman,0,0,0> GraphicsScaling
<:f240,2Times New Roman,0,0,0> Endif<:f>
<:f240,2Times New Roman,0,0,0>ELSEIF Box = 9<:f>
<:f240,2Times New Roman,0,0,0>If IsFrameSelected()=0
<:f240,2Times New Roman,0,0,0> call newframe<:f><:f240,2Times New Roman,0,0,0>()
<:f240,2Times New Roman,0,0,0> end<:f><:f240,2Times New Roman,0,0,0>if
<:f240,2Times New Roman,0,0,0>If IsFrameSelected()<<<;><:f><:f240,2Times New Roman,0,0,0>0
<:f240,2Times New Roman,0,0,0> ImportPicture<:f>
<:f240,2Times New Roman,0,0,0> Endif<:f>
<:f240,2Times New Roman,0,0,0>ELSEIF Box=10
<:f240,2Times New Roman,0,0,0>If IsFrameSelected()=0
<:f240,2Times New Roman,0,0,0> <:f>LayoutMode()
Pos = CursorPosition$()
x = strfield$(Pos, 1, ",")
y = strfield$(Pos, 2, ",")
AddFrame(x, y, (x + 3055), (y - 3060))
<:f240,2Times New Roman,0,0,0> end<:f><:f240,2Times New Roman,0,0,0>if
<:f240,2Times New Roman,0,0,0>If IsFrameSelected()<<<;><:f><:f240,2Times New Roman,0,0,0>0<:f>
<:f240,2Times New Roman,0,0,0>Tables(3 0 1440 86 720 <:f><:f240,2Times New Roman,0,0,0>86 0 0 1 0 0 0 1 2 )
SizeColumnRow(2880 86 2520 86 )
Center( )
ImportPicture
Type( "<[>Down]" )
TableLines(16 111 0 1 6856 )
FontChange("Arial" 18 0 200 )
Italic( )
Center( )
<:f240,2Times New Roman,0,0,0>endif
<:f240,2Times New Roman,0,0,0>endif
<:f240,2Times New Roman,0,0,0>END FUNCTION
<+C><-!><:f240,2Times New Roman,0,0,0>
FUNCTION newframe()
LayoutMode()
Pos = CursorPosition$()
x = strfield$(Pos, 1, ",")
y = strfield$(Pos, 2, ",")
<:#284,9360> AddFrame(x, y, (x + 2880), (y - 2880))
<+C><:#280,9360>END FUNCTION
<+C><:#280,9360>
<:#280,9360>FUNCTION newframe1()
<+C><:#280,9360>END FUNCTION
<+C><:#280,9360>
<+C><:#280,9360><:f240,2Times New Roman,0,0,0>FUNCTION HelpFun(hdlg, key)
<:#280,9360><:f240,2Times New Roman,0,0,0>DialogBox(".","Helper")
@Function@<:#270,9360><:f240,2Times New Roman,0,0,0>end function
<:#280,9360>DIALOG Frames
<:#840,9360>-2134900736 12 112 46 68 30 "" "AmiDialog" "Frames"
2 3 12 12 3 1342373896 "button" "c:\amipro\icons\dlgicos\fr_frame.bmp" 0
15 3 12 12 4 1342373896 "button" "c:\amipro\icons\dlgicos\fr_front.bmp" 0
28 3 12 12 5 1342373896 "button" "c:\amipro\icons\dlgicos\fr_back.bmp" 0
41 3 12 12 6 1342373896 "button" "c:\amipro\icons\dlgicos\fr_group.bmp" 0
54 3 12 12 7 1342373896 "button" "c:\amipro\icons\dlgicos\fr_centr.bmp" 0
2 16 12 12 8 1342373896 "button" "c:\amipro\icons\dlgicos\fr_drawg.bmp" 0
15 16 12 12 9 1342373896 "button" "c:\amipro\icons\dlgicos\fr_imprt.bmp" 0
28 16 12 12 10 1342373896 "button" "c:\amipro\icons\dlgicos\fr_captn.bmp" 0
41 16 12 12 12 1342373896 "button" "c:\amipro\icons\dlgicos\fr_scale.bmp" 0
57 20 8 8 2 1342373896 "button" "c:\amipro\icons\dlgicos\escape.bmp" 0
<:#840,9360>58 16 6 3 20 1342373888 "button" "" 0
0 1 68 29 1002 1342177287 "static" "" 0
<:#280,9360>END DIALOG
<:#280,9360>DIALOG Helper
<:#560,9360>-2143289344 13 102 56 167 81 "" "" ""
<:#840,9360>61 66 41 14 2 1342373888 "button" "&Close" 0
<:#840,9360>11 11 23 20 1001 1342177281 "static" "Create Frame" 0
<:#840,9360>103 39 29 20 1003 1342177281 "static" "Graphics Scaling " 0
<:#840,9360>41 39 28 20 1004 1342177281 "static" " Import Picture" 0
<:#840,9360>11 39 28 20 1005 1342177281 "static" "Drawing Mode" 0
<:#840,9360>7 1 158 31 20 1342308359 "button" "FRAMES help" 0
<:#840,9360>7 31 130 29 21 1342308359 "button" "" 0
<:#840,9360>72 38 27 20 1000 1342177281 "static" "Picture/ Caption" 0
<:#840,9360>102 11 30 19 1002 1342177281 "static" "Group\ Ungroup" 0
<:#840,9360>74 10 22 20 1007 1342177281 "static" "Send Back" 0
<:#560,9360>154 73 12 7 1006 1342177280 "static" "abb" 0
<:#840,9360>40 11 32 16 1008 1342177281 "static" " Bring Front" 0
<:#840,9360>136 11 25 18 1009 1342177281 "static" " Center Frame" 0
<:#280,9360>END DIALOG
<:#284,9360><:f240,2Times New Roman,0,0,0>function init(hdlg)
<:#284,9360><:f240,2Times New Roman,0,0,0>metrics = getprofilestring$("wht-fram", "Metrics", "{windir}amipro2.ini")
<:#284,9360><:f240,2Times New Roman,0,0,0>x = strfield$(metrics, 1, ",")
<:#284,9360><:f240,2Times New Roman,0,0,0>y = strfield$(metrics, 2, ",")
<:#284,9360><:f240,2Times New Roman,0,0,0>w = strfield$(metrics, 3, ",")
<:#284,9360><:f240,2Times New Roman,0,0,0>h = strfield$(metrics, 4, ",")
<:#284,9360><:f240,2Times New Roman,0,0,0>movewindow(hdlg, x, y, w, h, 1)
@Function@<:#284,9360><:f240,2Times New Roman,0,0,0>end function
@Function@<:#284,9360><:f240,2Times New Roman,0,0,0>function curloc(hdlg)
<:#284,9360><:f240,2Times New Roman,0,0,0>dim coord(4)
<:#284,9360><:f240,2Times New Roman,0,0,0>getsize(hdlg, &coord)
<:#284,9360><:f240,2Times New Roman,0,0,0>x = coord(1)
<:#284,9360><:f240,2Times New Roman,0,0,0>y = coord(2)
<:#284,9360><:f240,2Times New Roman,0,0,0>cx = coord(3)
<:#284,9360><:f240,2Times New Roman,0,0,0>cy = coord(4)
<:#284,9360><:f240,2Times New Roman,0,0,0>w = cx - x
<:#284,9360><:f240,2Times New Roman,0,0,0>h = cy - y
<:#284,9360><:f240,2Times New Roman,0,0,0>writeprofilestring("wht-fram", "Metrics", strcat$(x, ",", y, ",", w, ",", h), "{windir}amipro2.ini")
<+@><:#284,9360><:f240,2Times New Roman,0,0,0>end function<:f>
@Function@<:#270,9360><:f240,2Times New Roman,0,0,0>
>
SM! ! ─L¼ ─L x SM# l ─Lä yLV ' SMo ä yL╪ : GELp